home *** CD-ROM | disk | FTP | other *** search
/ Aminet 43 / Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso / Aminet / dev / basic / STRPortLib.lha / STRPortLib / Demo / ParPortDemo.asc < prev   
Encoding:
Text File  |  2001-03-21  |  1.3 KB  |  35 lines
  1. ; STRPort.obj  (c) 1998-2001 by Stephan Richartz
  2. ;
  3. ; Parallel Port Demo  (Drucker anschliessen...)
  4. ;                     (connect the printer...)
  5. ;
  6. ; SetParDDR, GetParDDR, WriteParPort, ReadParPort
  7.  
  8.  
  9. SetParDDR 255                  ; setzt alle 8 Leitungen auf Ausgang.
  10.                                ; put all pins to output
  11.  
  12. If GetParDDR=255               ; sind auch Alle auf Ausgang gesetzt ?
  13.                                ; (hier zu Demozwecken. Muss nicht sein)
  14.                                ; read the DataDirectionRegister
  15.  
  16.   Text$="Es klappt !"+Chr$(10) ; etwas schreiben...
  17.                                ; some Text...
  18.  
  19.   For i=1 To Len(Text$)        ;
  20.     m$=Mid$(Text$,i,1)         ; Text$ in einzelne Zeichen teilen
  21.     WriteParPort Asc(m$)       ; ASC-Wert zum parallelen Port uebertragen
  22.   Next                         ;
  23.  
  24. EndIf
  25. End                            ; Das wars! Ready!
  26.  
  27.  
  28.  
  29. ; SetParDDR 0                  ; setzt alle 8 Leitungen auf Eingang.
  30.                                ; put all pins to input
  31. ; nprint ReadParPort           ; liest den Zustand des parallelen Ports aus
  32.                                ; get the byte from Port
  33. ; SetParDDR %11000011          ; Leitung (Bit) 1,2,7,8 = Ausgang (output)
  34.                                ; Leitung (Bit) 3,4,5,6 = Eingang (input)
  35.